﻿Module Module1
  Sub Main()

    ' numero giorni da aggiungere
    Dim giorni As Integer = 7

    ' definizione della data
    Console.WriteLine(
      "Inserisci una data (gg/mm/aaaa): ")
    Dim inputDT As DateTime =
      CType(Console.ReadLine(), DateTime)
    MyDate.MDate = inputDT

    ' creazione variabile data e somma
    Dim prova As MyDate = New MyDate()
    Console.WriteLine(prova + giorni)
    Console.WriteLine(giorni + prova)

    ' attesa per la visualizzazione
    ' del risultato
    Console.ReadLine()

  End Sub
End Module
